﻿Imports System.Data
Imports DataAccessLayer
Imports BE = BusinessEntities

Public Class UsuarioBL

    Dim objUsuarioDAO As New UsuarioDAO

    Public Function AutentificarUsuario(ByVal id_usu As String, ByVal pas_usu As String) As DataSet
        Return objUsuarioDAO.AutentificarUsuario(id_usu, pas_usu)
    End Function

    Public Function BuscarUsuario(ByVal objeto As BE.UsuarioDTO) As DataSet
        Return objUsuarioDAO.BuscarUsuario(objeto)
    End Function

    Public Function Listarusuxproy() As DataSet
        Return objUsuarioDAO.Listarusuxproy
    End Function


    Public Function usuariosXproyecto(ByVal objeto As BE.UsuarioDTO) As DataSet
        Return objUsuarioDAO.usuariosXproyecto(objeto)
    End Function

    Public Function detallerendicion(ByVal objeto As BE.UsuarioDTO) As DataSet
        Return objUsuarioDAO.detallerendicion(objeto)
    End Function
    Public Function CapturaError() As String
        Return objUsuarioDAO.CapturaError
    End Function

    Public Function InsertarIngeniero(ByVal objeto As BE.UsuarioDTO) As Boolean
        Return objUsuarioDAO.Insertaringeniero(objeto)
    End Function

    Public Function EliminarUsuario(ByVal objeto As BE.UsuarioDTO) As Boolean
        Return objUsuarioDAO.EliminarUsuario(objeto)
    End Function

    Public Function DatosUsuario(ByVal objeto As BE.UsuarioDTO) As DataSet
        Return objUsuarioDAO.DatosUsuario(objeto)
    End Function

    Public Function ActualizarUsuario(ByVal objeto As BE.UsuarioDTO) As Boolean
        Return objUsuarioDAO.ActualizarUsuario(objeto)
    End Function

    Public Function getArea() As DataSet
        Return objUsuarioDAO.getArea
    End Function

    Public Function ListarUsuarios() As DataSet
        Return objUsuarioDAO.ListarUsuarios
    End Function
    Public Function getCargo() As DataSet
        Return objUsuarioDAO.getCargo
    End Function
End Class
